home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 30
/
Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso
/
Aminet
/
mus
/
edit
/
WaveTracer.lha
/
WaveTracer
/
ARexx
/
Tonleiter.rx
< prev
next >
Wrap
Text File
|
1996-05-31
|
547b
|
28 lines
/* WaveTracer DS Tonleiter */
/* © by QXC & VIRTUAL WORLDS PRODUCTIONS */
options results
address 'WTRexx'
GETSAMPLESIZE
if result=0 then do
say 'Kein Sound vorhanden!'
end
else do
KEYACTION 81 /* = F2, Oktave Nummer 2 */
KEYACTION 16 /* Tonleiter */
KEYACTION 17
KEYACTION 18
KEYACTION 19
KEYACTION 20
KEYACTION 21
KEYACTION 22
KEYACTION 80 /* = F1, Oktave Nummer 1 */
KEYACTION 16 /* Tonleiter */
KEYACTION 17
KEYACTION 18
KEYACTION 19
KEYACTION 20
KEYACTION 21
KEYACTION 22
end